0 IFA=.THENA=1:LOAD"TP.DISK.O",8,1 1 IFA=1THENA=2:LOAD"TP.PRINT1.O",8,1 2 IFA=2THENA=3:LOAD"TP.PRINT2.O",8,1 3 GOTO110 5 : 6 REM ALTER ROM SCROLLING 7 : 10 POKE770,131:POKE771,164:POKE88,.:POKE89,192:POKE90,.:POKE91,192 20 POKE781,33:POKE782,.:SYS41964:POKE88,254:POKE89,255:POKE90,254:POKE91,255 30 POKE781,33:POKE782,.:SYS41964:POKE59639,5:POKE1,53 40 RETURN 100 : 105 REM SETUP STUFF... 106 : 110 POKE55,.:POKE56,32:CLR:Q$=CHR$(34) 120 DIM FI$(144),FT%(144),NB%(144) 122 FT$(0)="":FT$(1)=",S":FT$(2)=",P":FL=0 125 GOSUB1000:GOSUB10 130 PRINT"[147] [154][201]NSERT DISK AND PRESS [211][208][193][195][197]":POKE198,. 140 IFPEEK(203)<>60THEN140 160 PRINT"[147] [154][210]EADING ALL "Q$"[208][210][199]"Q$" [154]FILES W / "Q$"[212]."Q$" [154]NAMES" 170 PRINT" [154][208]RESS [193] [154]TO ABORT WHILE PRINTING TEXT." 180 : 185 REM READ THE DIRECTORY 190 : 200 OPEN15,8,15,"I0":OPEN8,8,8,"#" 210 PRINT#15,"U1:"8;0;18;1 220 SYS49152,FI$,FT%,NB% 230 IF (LEFT$(FI$,2)<>"T.") OR (FT%<>130) THEN OK=.:GOTO240 235 CO=CO+1:FI$(CO)=FI$:FT%(CO)=FT%:NB%(CO)=NB%:OK=1 240 IF(OK)THENPRINT"";FI$ 250 A=PEEK(2):IFA=.THEN220 260 IFA<>255THENPRINT#15,"U1:"8;0;18;A:PRINT#15,"B-P:"8;0:GOTO220 270 CLOSE8:CLOSE15 280 : 285 : 290 REM PRINT THOSE FILES!! 295 : 300 PRINT:FOR A=1 TO CO 305 PRINT"[154][210]EADING: "FI$(A) 306 IFFI$(A)<>""THEN310 307 PRINT"[154] [212]HERE ARE NO "Q$"T."Q$"[154] FILES ON THIS DISK." 308 GOTO2000 310 SYS 49155,8192,FI$(A) 315 EA=(PEEK(781)+PEEK(782)*256): POKE EA,.:POKEEA+1,13:POKE EA+2,13 320 OPEN4,4,7:Z=.:A$="" 321 IFPEEK(8192+Z)=13THEN323 322 A$=A$+CHR$(PEEK(8192+Z)):Z=Z+1:GOTO321 323 S=8192:IFLEFT$(A$,3)="^U:"THENS=8192+LEN(A$)+1 325 PRINT"[154][145][208]RINTING: "FI$(A):POKE2,. 330 IF(FL)THEN SYS 52224,S:SP=59-PEEK(787) 340 IFFL=0THEN SYS 51200,S:SP=PEEK(787)+5 345 IFPEEK(2)=0THEN360 346 SYS65484:PRINT"[145][150] [193]RE YOU SURE YOU WANT TO QUIT? ([217][150]/[206][150])":POKE198,. 347 GETA$:IFA$<>"Y"ANDA$<>"N"THEN347 348 IFA$="Y"THENA=CO-1:RUN1 349 PRINT"[145] " 350 PRINT"[145][154][208]RINTING: "FI$(A):POKE2,. 351 IF(FL)THENPOKE781,4:SYS65481: SYS52486:SP=59-PEEK(787) 352 IFFL=0THENPOKE781,4:SYS65481: SYS51318:SP=PEEK(787)+5 354 IFPEEK(2)=1THEN346 360 FOR B=1 TO SP:PRINT#4:NEXT:CLOSE4 365 PRINT"[145][154][198]INISHED PRINTING: "FI$(A) 370 NEXT:RUN1 1000 POKE53281,0:POKE53280,0 1010 PRINT"[147][159]" 1020 PRINT" [204][207][193][196][211][212][193][210]'[211] [212][197][216][212] [208][210][201][206][212][197][210] 1030 [153]"CONT BY (null)IKE (null)AYNARD 1040 PRINT"[158] [212]HIS PROGRAM WILL PRINT OUT ALL OF" 1050 PRINT" THE FILES ON THE DISK THAT START WITH" 1060 PRINT" THE PREFIX "Q$"T."Q$". [212]HESE ARE THE" 1070 PRINT" FILES THAT ARE SHOWN ON THE SCREEN" 1080 PRINT" WHEN YOU CHOOSE '[210]UN [201]T' FROM THE" 1090 PRINT" SMALL YELLOW MENU." 1092 PRINT" [205]AKE SURE YOUR PRINTER IS ON-LINE" 1094 PRINT" AND THE PRINT HEAD IS SET TO THE TOP" 1096 PRINT" OF A PAGE." 1100 PRINT" [159]([212][159])WO COLUMNS" 1110 PRINT" [159]([211][159])INGLE COLUMN IN MID-PAGE" 1120 PRINT" [159]([210][159])ETURN TO [204][207][193][196][211][212][193][210]" 1130 PRINT" [154][208]RESS [212][154], [211] OR [210]" 1140 GETA$:IFA$<>"T"ANDA$<>"S"ANDA$<>"R"THEN1140 1145 IFA$="R"THENPRINT"[147]":GOTO2000 1150 FL=0:IFA$="T"THENFL=1 1160 RETURN 2000 PRINT" [196]O YOU WANT TO RETURN" 2005 PRINT" TO [204][207][193][196][211][212][193][210]? (Y[154]/N[154])" 2010 POKE198,. 2020 GETA$:IFA$<>"Y"ANDA$<>"N"THEN2020 2030 IFA$="N"THENRUN1 2040 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 2050 IFER<>63THENEND 2060 POKE1,119:LOAD"HELLO CONNECT",8